﻿Namespace Win

    Public Class MessageBox
        Private Sub New()
        End Sub

        Public Shared Sub ShowInfoDialog(ByVal caption As String, ByVal text As String)
            ShowInfoDialog(Nothing, caption, text, 0)
        End Sub
        Public Shared Sub ShowInfoDialog(ByVal caption As String, ByVal text As String, ByVal timeoutSeconds As Integer)
            ShowInfoDialog(Nothing, caption, text, timeoutSeconds)
        End Sub
        Public Shared Sub ShowInfoDialog(ByVal owner As IWin32Window, ByVal caption As String, ByVal text As String)
            ShowInfoDialog(owner, caption, text, 0)
        End Sub
        Public Shared Sub ShowInfoDialog(ByVal owner As IWin32Window, ByVal caption As String, ByVal text As String, ByVal timeoutSeconds As Integer)
            Dim clsView As New FTimeoutInfoMessage
            clsView.ShowDialog(owner, caption, text, timeoutSeconds)
        End Sub

    End Class

End Namespace